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x 1 Seen ee ee ee 7 . a, = ae 
EOF 0033584 A 1 
FROV OQO3S3AG A 1 
_OIScBKSZ 003000 43 17 
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“SOURCE STATEMENT 


“THIS PROGRAM» GIVEN A RECORD SIZE AND KEY LENGTH) WILL CALCULATE 
THE NUMBER OF BLOCKS PER TRACK» RECORDS PER TRACKs AND UNUSED BYTES 
TRACK» FOR ALL POSSIBLE BLOCKING FACTORS.” 





IF MORE THAN ONE BLOCKING FACTOR GIVES THE SAME NUMBER OF BLOCKS 
ONLY THE LARGEST ONE IS PRINTED. 
INPUT CARDS HAVE THE FOLLOWING FORMATS 


I> 5-—-RECORD SIZE ¢1.70 THE MAXIMUM ACLOWED FOR THE DEVICE) 


7 9-——KEY LENGTH {0 TO 255) 
___ 11-12—DEVICE TYPES _ 
11-+ 8811 tOR IBM 2311) 
14--8614 (OR IBM 2324) 





24—--8R28 


25--8825 (SAME AS 8824) 


ARE CHECKED FOR NUMERIC AND VALIDITY--RECOROD SIZE AND 


IF ANY FIELD IS. 





INVALID» THE CARD INFORMATION IS PRINTED WITH APPROPRIATE 
DIAGNOSTICS AND BYPASSED. 
_ANY NUMBER OF CARDS MAY BE PROCESSED IN ONE RUN. 





USING #001029 30%eSe607 
PRINT NOGEN 
OPEN ROR» PRTR 
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ERRORS Loc OBJEeT CODE STMT SOURCE STATEMENT 
eee FS CHOSE TEES KS ESTO ETEE EOF EEREHESOSE ES ESSE OFS HRETESE OD OE ETERS HE EEEESESS 
29 3 
30 * CONTROL. CARD PROCESSING _- Looe. 
31 « 
32 SEKSSSEHSTAEEKSSHKESS CEST EHS SEEEEE SESE ERE ETSTETES OS SSESEKEKSDEKESSHABES 
eer ee 33 NEXTCARD “GET — RDR» CARD READ A “CONTROL CARD 
300E 92013619 36 MVT OF el RESET: ALL’ INDICATORS 
‘3012 92FO0365D 37 MVT HD1*95eC*0* 
3016 S200361A 38 AVT ERRORS 20 be ta Aah ee A i ee ede 
ZOLA  D2ZO083RSC33AE. 39 MVC HD14#62(5)eCARD — RECIRD SIZE 
3020 ODSO&SSI3SAE36E8A &0 CLC CARD (5)e=CL5°* ’ YS RECORD SIZE OMITTED? 
3026 4&780308C. 41 BE BADRCSZ YES--ERROR 
42 * CHECK RECORD SIZE FIELD FOR VALID NUMERICS (LEADING BLANKS ACCEPTED 
Z02A 488036TA 43 LH 8e-=Y (CARD) . RB SCANS RECORD SIZE FIELD 
302E 92013618 4g MVI LEADBLNKe2l __ SET LEAQING-BLANK INDICATOR 
3032 95808000 85 LBLNKR CLIT 0¢(83.C* .* BL AN K? 
3036 87703046 a6 BNE TESTDIGR  NO--BLANKS ARE NO- LONGER VALID 
303A. 95013618 SB? CET LEAD BLINK oI ARE LEADING. BLANKS STILL VALID 
303E 4%&7803052 88 “BE” — NEXTDIGR YES--SKIP IT 
3082 &S&7FO308C a9 8 BADRCSZ ERROR--EMBEDDED BLANK 
3086 932003618 50 TESTDIGR MV.I LEADBLNK»sD __ BLANKS ARE-NG: LONGER ACCEPTABL 
SORA S3S5FO8000 . $1 CLT Ot83eC*O* VALID NUMERIC DIGIT? © 
3O08E. &780308C 52 BL BADRCSZ : NO--ERROR | 
3052 AABOSB7C ‘S3_NEXTDIGR AH Se=H*1°: | NEXT DIGIT 
3056 S&980367E 54 “CH Be-Y (CARD4S5) HAVE ALL DIGITS BEEN CHECKED? 
305A 4&7803032 55 BL LBLNKR ae NO-~-CHECK. THE NEXT ONE 
3O05E F224361C33AE 56 PACK RCSZeCARDES) VALID NUMERIC RECORD SIZE 
3068 020534383613 57 MYC H01461(62ED5 
JOGA DEO5343B361C 58 £0 HO1+61€63eRCSZ RECORD SIZE To HEADING LINE 
3070 958903483C_ 59 LJRCSZ CLI HD1#620C* *° LEFT-—JUSTIFY SIGNIFICANT DIGIT 
Z07& &7T03082 60 ‘BNE RCSZ0 7 
3078 O2048383T3430 61 MVC HD1*62(5)*eHD1+63 
307E  87F03070 62 8B LURCSZ AN etc ee hee te Se nh 
3082 F822351C361C 63 RCSZO . =ZAP RCSZeRCSZ IS RECORD SIZE ZERO? | 
3088 47703090 64 BNZ GETKLEN NO--IT*°S VALID SO FAR 
308C S601361A 65 BADRCSZ OF  ERRORSel RECORD SIZE ZERO OR NOT NUMERT 
66 * VALIDATE AND OBTAIN KEY LENGTH-—-SIMILAR TO RECORD SIZE ROUTINE ABOV 
3090 D20B384a3368F 67 GETKLEN MVC HD1#69012) e=CLi2*KEY LENGTH =° ~ 
30936 0D202345033B4 68 MVC HD1*8203})eCARD*E __ KEY LENGTH 
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RRORS Loc OBJECT CODE STMT SOURCE. STATEMENT 
“308C 88803680 68 “LH Be =YC(CARD*6) 
30A0 92013618 70 MVI LEADBLNKel CHECK FOR LEADING BLANKS 
30A4% 95808000 7 71 LBLNKK CLI Of€8se0eC* © cet 
30A8 4&77030B8 72 BNE TESTOTGK 
3OAC 95013618 73 CLY . LEADBLNKel 
_30B0. &78030CS | 74 BE NEXTDIGK | 
3084 4&7F03108 75 B BADKLEN 
3088 92003618 76 TESTDIGK MVI LEADBLNKeO 
30BC S35F 08000 77 sect een, OO Ng lo. mo gs a ta Se ee fo es as Damon Tamil A) en dele 
30C0° 47403108 78 “BL BADKLEN 
30C4, AAB80367C 79 NEXTDIGK “AH Sex=H*1? 
; 30C8 49803682 80 CH = Be =Y (CARD+9) 
° 30CG S78030A4 81 BL LBLNKK 
3000 F212351F33B4 82 PACK KLENseCARD+6(3) 
3OD6 F811L36IF 361F 83 ZAP KLENeKLEN __TS MW KEY LENGTH GIVEN? 
300C. S7BO30FE 84 BZ KLENO NO . 
30EO0 D203384SF360F 85 MVC | HB14814)sE03 
SOEG6 DEO3348F361F se -HD1#8104)»KLEN KEY LENGTH TO “HEADING LINE 
30EC 95803450  ~— 87 LUKLEN CLI HD1*820C* * _ LEFT-JUSTIFY SIGNIFICANT DIGITS 
30FO 8&770310C 88 BNE ODEVTYPE . 
30F% D20238503451 89° MVC HD1*82033eHD1+835 i | 7 
30FA &TFO3OEC 30 “8 LJKLEN 
3OFE D20F 34433698 91 KLENO MVC HD1#69116)e=CL16"NO KEY:* 
= 3108 &7F0310C 32. BL DEVTYPRE Flaca tenets 
3108 9602361A © “93 BADKLEN OF ERRORSe? © KEY LENGTH IS NOT. NUMERIC 
ie 94 s”’ VALIDATE DEVICE TYPE AND SET UP DEVICE-DEPENDENT CONSTANTS: 
310C 020134293388 95 DEVTYPE MVC HD1#93(2)eCARD+10 | _DEVICE TYPE TO HEADING LINE | 
3112 488036848 96 ‘2H 8 =—s_- Bs TY (DEVTABLE? R&8 SCANS DEVICE TYPE TABLE 
3116 050133888000 97 DEVCHECK CLC CARD+10(23+0(8) HIT ON DEVICE TYPE? 
311C 47803158 38 BE soo ovCc YES--SET UP CONSTANTS 
3120 AAS803686 99 AH 8e=H*11° INCREMENT TABLE POINTER 
312% 99803688 100 CH  =8e=¥ C(DEVTEND) END: OF TABLE? 
3128 47803116 Pan 101i“ CCE VC HECK NO--TRY NEXT ENTRY. 7 
312C 0212358B36AB 102 MVC LINE{19) e=CL19* INVALID DEVICE TYPE® 
3132 96102614 103 OL ERRORS eX" 10° SET. DEVICE TYPE ERROR BIT 
3136. 485003360 108 BAL 13eCLER 
105 CNTRL PRTIRoSPeOe2: 
110 PUT PRYReLINE PRINT. ERROR MESSAGE 
31498 D28335EB358A 113 MVC LINEeBLANK  __ eee eats 


























—PISC RECORD SIZE/BLOCK 'SIZE CALCULATION UNIVAC 9300 DISK ASSEMBLY : JAN. 279 1976 





ERRORS toc OBJECT CODE . STMT SOURCE STATEMENT 





















































318E 68036BE 114 “yZAP) = MAX» =P*°99999° » SUPPRESS RECORD SIZE CHECK 
315% &7F03170 115 8B RCSZ CHEK 
3158 F82236808002 116 ‘GOOQDDVC ZAP MAXe2¢308) $= |. TRACK CAPACITY IN BYTES | 
315E £F811363£8005. 117 ZAP  FACTOR*s5(20¢8) GAP. TOLERANCE FACTOR 
‘3164 F811364a8007 118 ZAP KEYGAP*7(208) KEY GAP LENGTH 
Fe 316A  F811368C8009 _ 119 ZAP — DATAGAP + 9€223) “ALL: OTHER RECORD OVERHEAD 
120 * PRINT ERROR MESSAGE IF RECORD SIZE IS NOT NUMERIC 
3170 91013614 121 RCSZCHEK' TM ERRORS 91 , IS RECORD SIZE VALID? 
317% 48780319" 122. == 82 ~~ RCSZMAX YES-——-CHECK AGAINST MAXIMUM | 
3178 0212358836C1 123 MVC LINE (19) e=CL19°INVALIO RECORD SIZE* 
317E 45003360 128 BAL. 13sCLER 
Z 125 CNTRL PRIReSP 9092 
130 PUT PRIReLINE 
3190 0283358B358A 133 MYC LINE eBLANK 
3196 &7FO31CB 134 B KLENCHK «se BYPASS MAXIMUM RECORD SIZE CHE 
135 « DETERMINE WHETHER AT LEAST ONE RECORD WILL FIT ON A TRACK 
319A F922361C3640 136 RCSZMAX CP RCSZeMAX IS RECORD SIZE TOO LARGE? 
31A0 870031C6. coh BT BNW OKLENCHK NOL 
31AG D21B358B36D8 138 MVC LINE (28) e-CL28°RECORD WILL NOT FIT ON TRACK* 
31AA S6O436KA 139 “Or ERRORS 04 ’ SET RECORD-TOO-LARGE BIT 
31AE 85003360 140 BAL _13eCLER ee a gic ae 6h cmsyneee 
141 — CNTRL PRTReSPe0e2 
‘186 PUT PRTReLINE 
be 31C0 D283358B358A a > + ae MVC LINE sBLANK 
250 * PRINT ERROR MESSAGE IS KEY LENGTA IS NOT NUMERIC 
31C6 9102361A 151 KLENCHK —TM ERRORS e2 . IS KEY LENGTH VALID? 
Z1iCA 4&78031F0 152 BZ  _KLENNAX ae YES 
31CEi 0211358B36F0 153 MVC LINE (18) e=CL18°INVALID KEY LENGTH® 
31D4% 4&5003360 154 BAL 13eCLER 
155 . CNTRL PRIReSP e002 
160 PUT PRIReL INE 
31E6 D283358B358A 163 MVC LINE eBLANK . 
31EC 4&7FO321C a 164 Bs ERRORCHK.- _ BYPASS MAXIMUM-KEY=LENGTH CHEC 
165 * CHECK THAT KEY LENGTH DOES NOT EXCEED 255 
31FO0 £F911361F3702 166 KLENMAX CP KLENe=P°255° YS KEY LENGTH TOO LARGE? 
os tF&  §700321C | oe _ A167 co on SNH ERRORCHK NO 
31FA 021635883704 168 MVC LINE (23) e=CL23°KEY LENGTH IS TOD LARGE® 
3200 9608361A 169 or ERRORS 08 SET KEY-LENGTH-TOO?LARGE BIT 








3208 45003360 170 BAL 13eCLER 
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ERRORS LOC OBJECT “CODE | “STMT SOURCE STATEMENT 
99g BT 
176 “PUT  PRTReLINE 
3216 D283358B358A 179 MVC LINEsBLANK «ss sits ra ee _ 
181 * END OF VALIDATION ROUTINES—-IF THERE WERE ANY ERRORS: DO NOT PROCESS 
321C 95003624 182 ERRORCHK CLI ERRORS»sO - WERE THERE ANY ERRORS? 
3220 97703008 


_ 183 BNE NEXTCARD  _ _YES=-READ NEXT CARD 
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ERRORS Loc OBJECT CODE “STMT SOURCE STATEMENT 
YRS See cesndesececscece dees cesecscasecstecssatesocstetetate sess saeesessci 
186 * ans 
187 * START OF ACTUAL BLOCK SIZE CALCULATIONS 
188 e¢' 
189 88S See ESEHE SEEKERS OTHE HEE EEEEES HOES TOSSES EERES SEO 049858 44 SEOTEESE! 
3228 £F8103629371B 1390 + ZAP NREC s=P*1* ‘START: WITH UNBLOCKED RECORDS 
191 * START OF LOOP FOR EACH BLOCK SIZE 
322A. F8823621361C 192 LoDP ZAP = =—s-« OL eo RCESZ 
3230 FC81362135629 ___193__ MP DL eNREC DATA LENGTH {BLOCK SIZE) 
3236 F8213626361F 194 ZaRP KD eKLEN COMPUTE KEY-GAP-DATA LENGTH 
323C 87803246 195 82 NOKEY NO KEY KRIELD SPECIFIED 
3280 FAZI36ZE364HA 196 AP KD eKEYGAP ADD LENGTH OF KEY FIELD GAP 
3286 FA2%36263621 197 NOKEY © AP KDeDL TOTAL KEY-GAP-DATA LENGTH 
324C F922352636480 1938 cp KD eo MAX HAS BLOCK BECOME TOO LARGE? 
7 ___ 3252) 8720334845 198 BA LASTUINE == ES@-WE*RE FINISHED 
3256 FSFL362B361F 200 ZAP WORK eKLEN 
325C FAFa&362B83621: 201 CAP WORK eDL TOTAL KEY AND DATA LENGTH 
3262 FCF1362B363E 202, _MP_ WORK eF ACTOR NUMBER OF VARTABLE GAP BYTES 
3268 FAF236ZB371C 203 “AP WORK «=P *5000° ROUND TO THE NEAREST BYTE 
326E D1IC03638363A 208 MVN- WORK #131113 sWORK+15 
3279 FS82D363B362B8 205 ZAP LeWORKORSD . 
327A FA22363B83626 206 AP: LekD . Ven a 
3280 FA2Z1363B368C 207 AP LsDATAGAP TOTAL’ EFFECTIVE RECORD LENGTH 
3286 F 8F2362B3690_ 208 ZAP WORK eMAX - NUMBER OF BYTES AVAILABLE FOR 
328C FBF2382B3626 203 SP WORK eKD ALL BLOCKS EXCEPT LAST ONE 
3232 FOF 236283638 210 OP WORK ok | NUMBER OF BLOCKS EXCEPT. LAST { 
3298 F 81036933628 pee Seer ZAP NeWORK(13) Sra ats See Ec ae Pee eo ee 
329E FAI03693371B8 -212 AP °° Ne=p*1* NUMBER OF BLOCKS PER TRACK 
32A8 FS2236473640 213 ZAP Re MAX MAXIMUM NUMBER OF BYTES PER TF 
S2AA FBF136283643 214 » ZAP WORK oN. COMPUTE THE TOTAL NUMBER OF. 
32B0 FSBFC362B371B 215 SP WORK e=P*1* BYTES REGUIRED BY ALL BLOCKS 
3286 FCF2362B363B 216 MP WORK eL ON THE TRACK 
pte a ae 32BC_  F AF 236283626 247 CP WORK KOO eg tN F Sen sage dite erent ore 
32C2) FB2F36%73628 218 SP Re WORK NUMBER OF BYTES REMAINING ON 1 
32C8 FS8F1362B3683 219 ZAP. = WORK of 
32CE FCF136283629. 220 _MP | WORK »NREC NUMBER OF RECORDS PER TRACK 
32D8% DS83358B358A 221 CLC =LINE eBLANK IS THIS THE: FIRST TIME THROUGI 
3S2DA &78032F8 222 BE SAMEN ' YES--DON*T PRINT YET | 
_32DE F91136833685 223 CP =NeOLDN If SMALLER BLOCKING FACTOR GA\ 
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ERRORS Loc “STMT SOURCE STATEMENT 
32E% &78032F8 224. BE SAMEN “SAME BLOCKS/TRACKs “DON*T: PR} 
32E8 495003360 225 BAL 13eCLER 
. 226 PUT PRIReLINE PRINT PREVIOUS LINE 

32F2 0283358B8358A 229 MYC LINE eBLANK 

32F8 D2033598360F 230 SAMEN MVC =- LINE #134) eED3 

32FE  DE0335983629 231. _..E—D LINE 41309) eNREC BLOCKING FACTOR 

3308 D20535A53613 232 MVC LINE*2606) 0ED5 

330A DEOS35A53623 233 ED LINE +26(6) eDL42 BLOCK SIZE 

3310 D20335B6360F 235 MVC LINE*O3QQD0EDS  — —“—‘“‘“‘“‘<i<iCSs 
3316 DF0335B63643 235 ED LINE +8304) oN NUMBER OF BLOCKS PER TRACK 
331C; D020335C7360F 236 MVC =- LINE #60 €4) e£D3 

3322. DE0335C73639 237 ED LINE +6014) eWORK#18 NUMBER OF RECORDS PER TRACK 
3328 020535063613 238 MVC LINE *75(6) cEDS. ite 

332E DF0535D63647 233 ED LINE+75(6) oR NUMBER OF BYTES REMAINING ON 
333% F81136953643 240 ZAP OLDNeN sits SAVE NUMBER OF BLOCKS! PER TRA 
333A FA10362937186 241 AP NREC »=P°1° INCREMENT BLOCKING FACTOR 
3380. S7FO3Z22A 282 | B Loop COMPUTE. FOR NEW BLOCKING FACT 

_ 2&3 *° THE LARGEST POSSIBLE BLOCK HAS BEEN FOUND--PRENT LAST LINE 
248 LASTLINE PUT  PRTRsLINE 
338A D2B3358B358A 2e7 MVC LINE eBLANK | 
3350 4&7F03008 248 B NEXT CARD _ _GD-FOR ANOTHER CARD > 
289 * END OF CONTROL CARDS—TERMINATE RUN 
250 EOF CLOSE RDR*ePRTR 
eS: + ee 2 
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ERRORS . toc OBJECT CODE STMT SGURCE STATEMENT: 
7 See - cde eh ee taeda 
257 * PAGE OVERFLOW ROUTINE 
258 * _ _ 7 7 — 
3360 95013619 258 CLER CLT OF 01 
3364 &770D000 266 BNE 0513) 
3368 A6013495C_ 261° AT HD 149%01 + INCREMENT ONE-DIGIT PAGE NUP 
262 CNTRL PRTReSKs7 
267 CNTRL PRTIReSP 2022 
; 3382 9320036193 275 MVI OF 20 
3386 SSOO36TA 276 CLI ERRORS eB IS THIS: “AN ERROR MESSAGE PRI 
. 338A &770D000 277 BNE 0913) YES--DON*T PRINT HD2 OR HD3 
278 PUT PRTReHDZ 
281 CNTRL PRTReSP e002 
286 PUT PRIRsHOS ; ae oe eieetiea 
33A2 &7FOD000 283 B Ole13) 
290 ¢ PAGE OVERFLOW DETECTION 
_33A6 92013619 28 PROV MVE Fed 
33AA 4&7FOE000 232 | B Ofe14) . 
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ERRORS Loc OBJECT CODE “STMT SOURCE STATEMENT 
° PQQ 08s £0 a8S 088 SESS SSS OES CEEEET TEER EE EE ES US OS COOSET EE ONES ESES SEDER DESEBS 
295 « 
296 + s To ROA G6 E bite ad Ec Oe Reem 3 
297 
. 298 BE Eee EE Ee eR EE EE EE Ee eer re re ren r Puer rr ers 
S3AE 299 CARD DS cis8o0 CONTROL CARD IMAGE 
S3FE 300 HDL DS OCL1 32 FIRST HEADING LINE 
3S3FE Cacsezc3s0C 20306 301 pc CL32°DISC BLOCK SIZE CALCULATION® 
3SSlE CaCSESCSC3CS5SQ07E 302 ie OC CLI6*DEVICE = 8a* aA ates tee ces Pas Re ade tee aR ce Pa een 
342E DSCSCINEDICSHOE2 303 . oc CL41*RECORD SIZE =* 
3457 O7TCICTCSS08080480 304 oc CL4&3*PAGE* 
3882 ee es 305 HDO2 DS OCL132 SECOND HEADING LIME 
3882 &08080460480405040 306 oc cLiz2* * 
388E C2D306C3D2C SDSC7T 307 oc CL16 *BLOCKING*® 
38S3E C2D3IDECIDZ8OH040 308 oC CLIR*BLCCK® a ta ee as oe 
SHAC C2D3N6CIBZEZRO8O 309 oc CLL7*BLOCKS* 
34BD D9CSCINGCDSCHE2Z4O 310 oc CL18*RECORDS* 
34CF C2E8E3CSE240#090 312 CSS *BYTES* | a 
3506 312 HD3 os O0CL132 THIRD HEADING LINE 
3506 805%0408080804040 313 oc CLi3* °* _ 
3513. C&C1IC3E3D6D 949040 314 | CC CLiS*FACTOR* ~~ eS cen eaten ee 
35822 E2CS9E9C5809080490 315 pc CLi3*sIzee.. 
352F DTCSOSROESDSCIC3 316 oc 2CL1I7°PER TRACK? 
3551 DSCSDSCICSDSCS05 317 _..0€____ CLS7*REMAINING® eee essai 
358A 40 “318 BLANK | oc cLi*® 7 MUST PRECEDE LINE 
358B 408040808080R040. 319 LINE oc cti3z2* * PRINT LINE IMAGE 
___360F 80202120 _ __.320 E03. DC SL "90202120" wis lactate ae Ae 
3613° 802020202120 321 EDS oc XL6* 802020202120" “= ; 
3619 322 OF dS XL1L : PAGE OVERFLOW INDICATOR 
361A . 323 ERRORS os XL ; ERROR INDICATORS © 
361B 324% LEADBLNK DS Xt1 LEADING BLANK CONTROL 
361C 325 RCSZ OSs” PL3 RECORD SIZE 
361F ______._— 326 KLEEN. ODS PLZ... KEY LENGTH 
3621 327 OL oS PLS: DISC DATA LENSTH {BLOCK ‘SIZE) 
3626 328 KD oS PLZ KEY-GAP-DATA LENGTH 
3629 ee 329 NREC DoS PL2 BLOCKING FACTOR 
3628 330 WORK . os PLi6 WORK AREA 
3638 331 tL - OS PLZ: TOTAL EFFECTIVE RECORD LENGTH 


363E 332 FACTOR OS = PL2. vo. WARTABLE GAP TOLERANCE FACTOR 
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ERRORS LOC OBJECT CODE "STMT SOURCE STATEMENT 
scar Sa <<: Sa aa ea PRACK CAPACTTY IN BYTES” 
3683. ‘338 =N DS PL2: NUMBER OF BLOCKS PER TRACK 
3685 335 OLON OS PLZ ss PREVIGUS VALUE OF: IN ae 
3687 336. R DS PLZ BYTES REMAINING OM TRACK 
S6GA - 337 KEYGAP DS ~=s PL 2 KEY GAP LENGTH 
368C 338 DATAGAP ODS PL2 ' TOTAL OTHER RECORD OVERHEAD. 
339 * DEVICE-DEPENDENT CONSTANT TABLE--11 BYTES PER ENTRY 
‘340 * O-— 1--DEVICE TYPE CODE AS READ FROM CARD 
341 * 2- §--TRACK CAPACITY IN BYTES pester 2 ene ee 
342 « S5- 6--VARIABLE GAP TOLERANCE FACTOR X 10¢000° 
343 T-— 8--KEY GAP LENGTH 
a 344 2 | 9-10--TOTAL OTHER RECORD CVERHEAD 
36KE 345 DEVTABLE EQU es11 - 
36GE FIFI 346 DC CL2*11° 8411 
3650 03625C 3a7 oc PL3°3625" ee ee ee ees : 
3653 . §00C 348 pc - PL2*500° — 
3655 020C 349 pc PL2* 20° 
3657 O61C ed DO DE PL 261 
3659 F1iFa® 351 pc 3s C8: 2*# 184 * 88148 
365B 07294C. 352 | 06 PL3*7298°. 
365E 4&35C 353 oc =—s PL2°R3S 7 Vireo o Seeger oi ee et tees ste 
3660 o485C 3548 pc OséPL2* 45° 
3662 101C 355 DC PL2"°101° 
3668 F2FQ ceca SOO aa CL 2°28" 8828 | 
3666 07294C 357 pc PL3*7298° 
3669 &76C 358 pc PL2° 475° 
366B O485C 353 ec Se Ts MON Sin Ne Re A aw re ce sh ha ee eat ees eS 
366D 101C 360 oc PL2*101° 
366F F2F5 361 pc cL2°25* 84 25--SAME AS 34928 
3671 07298C 362 oc PL3*7294° 
367% &876EC 363 pc PL2°a76* 
3676 O45C 364 pc PL2* 85° 
3678 101C 365 ; DC  —==PL2*101° ae 7 pete ee aces! 
SETA 366 DEVTEND . Eau * 
367 EXTRN RDRePRTR 
ssa asct ce daaabhatecasasalass baasanssatestd ease Gubssacceanttebespeesaee eee se ENTRY. EOFs PROV 
SETA 33AE 369 =YCCARD) 
367C 0001 370 =Hele 
367E 3383 371 =Y{CARD¢5) a Boo. pees oe Me 
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ERRORS Loc OBJECT CODE “STMT SOURCE STATEMENT 
“3680 3389 — —— 372 ee SY(CARD*S) © 
3682 33B7 373 =Y(C ARB 9) 
3684 368E 37% =V(DEVTABLE) © Pe poeten ee a 
3686 06008 375 sHY11° 
3688 367A 376 =Y(DEVTEND) 
368A 8080994080 ce STF SOLES 
368F D2C5E8S80D3C505C7 378 =CL12°KEY LENGTH =° 
369B DSD&@002CSE 880480 373 =CLI6°ND KEY* 
36AB CSDSESCID3C9GHHO | | =—s80—“(‘(‘ ‘CCN OSCOURO*PINVALID DEVICE TYPE*® bt deat ye ae 
‘36BE 398999C 381 =P *99999°* 
3EC1i CSNSESCLD3SC9CRRO 382 | =CLI9°INVALID RECORD SIZE* 
3604 OSCSES0EDSC&Z0ES 383 ; =CL28°RECORD WILL NOT FIT ON TRACK® 
35FO C9NS5E5C1D3C 9CRAO 388 =CLIS*°INVALID KEY LENGTH® 
3702 258C 385 =P *°255* 
370% D2CSESROD3CSDSC7 386 _ SCL23°KEY LENGTH ITS TOO LARGE® 
3718 1c 387 =P*1* 
371C. ose00ec 388 =P *5000* - 
(371F oopoon003000 = 388 END OSEGIN 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
eet sae ELAPSED ae 2 are csi SECONDS” Looe a ae ivecane Sa be 1 ols oo 
Be Ae Se ie a ee BE Teka he AS om ROT a on AS Se 7 Fo abge wawed te tae Be pa 




















E DISC RECORD SIZE/BLOCK SIZE CALCULATION | 
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SYMBOL LEN VALUE ‘“DEFN REFERENCES 
““BAOKLEN & 003108 93 7 78° 
BADRCSZ & 00308C “65 81 49 = §2 
BEGIN & 003000 :25  =389 = ae _ Le eee 
‘BLANK 1 00358A 318 113. 133 199 #163 179 221 °«229 + «287 
CARD 80 OO33AE 299 35 39 #40 #=%5S6° 68 82 35 #£=97 #369 372 372 «373 
__CLER & (003366 253° 108 128 280 #6158 13170. 225 < 
~ DATAGAP 2 00364C 338 119 207 
 DEVCHECK 6 003116 E: yi 101 
DEVTABLE 11 OO36%F 385 $378 | __ ; __ : _ Sea ee ee 
DEVTEND 1 OO367A 366 376 
DEVTYPE 6 o0o0310¢C 35 88 0-992 
_ DISCBKSZ 1 003000 21 . #*#eUNREFERENCEDe#s 
OL 5 00362r 327 192 193 197 201°: 233 
-ED3 & OO360F 320 85 230 234% 236 
£05 6 003613 321 + +j£.57 232 238 ee ee Soctncecstche athe oo 
‘EOF & 003354 251 368 
E-RRORCHK & 00321C 4re2 “164 167 
ERRORS 1 003614" 323, 38 4665 93. 203 121 139 151 169 182 276 
FACTOR 2 O00363E 332 117 202 
GETKLEN 6 003096 °#67 64 
GODDDVC 6 003158 116 98 : ee. a yo Fe at, Bass ats 
HDL I32 O0033FE 300 37. 339 5S? #5S& 59 +61 +61 #=S6F 68 85 86 87 89 91 3! 
1261 278 
__ D2 132 003982 S05 2B eeepc 
HDS 132 003506 312  4°288 
KD 3 003626 328 19% 196 197 1298 "206 209 217 
KEYGAP 2 OO368A 337 (+118 196 ee a eee 7 Jee, 7 ; Seed 
KLEN 2 00361F 326 82 83 83 86 °166 194 200 
KLE NC HK & O0O31C6: 151 138 137 
_ KLENMAX 6 OO31FO 166 152 
KLENO 6 OO30FE 91 84 
be 3 003638 #331 #44205 #206 207 #210 “216 
LASTLINE & 00335% 285 j.199 = ; . ; - 
LBLNKK & O030A% 71 81 
LBLNKR & 003032 45 55 
LEADBLNK 1 003618 324 se 87 50 70 73 76. ase 
LINE 132 00358B 319 102 112 113 123 132 133 4138 #4%4188 #4149 #153 162 163 168 #478 «#4179 «22: 
“228 228 230 231 °232 233 234% 235 236 237 238 239 286 247 
LJUKLEN § OO30EC. 87 30 : Peat aan ee SR Sas sent phen ath nk PN cs ee 
LURCSZ & 003070 . 53 62 




















DISC RECORD SIZE/BLOCK SIZE CALCULATION 





















































UNIVAC 9300 DISK ASSEMBLY 279.1976 — 
SYMBOL LEN VALUE ‘DEFN REFERENCES 
“Loop 6 O00322A 192 242 
MAX — 3 00364@ 333 114 #%116 #%&136 «#198 ° 208 «213 
nN 2. 003643 334 “241 212 21% 219 '223 235 280 —— eee eee 
NEXTCARD & 003008 34 183 248 
NEXTD IGK & 0030C4 73 74 
__WEXTO TGR, § 003052... 53 48 
‘NOKEY — 6 003246 1937 195 
NREC 2 003629 329 "190 193 220 2317: 241 
OF 1 003619 322 36. 259 275 297. eas ee. 2 : _ eee 
OLDN 2 003685 335 ‘223 2480 
PROV & OQO33A5 291 368 
_PRTR 1 EXTRN 367 26 106 111 126: 2131 142 187 156 161 12172 177 227 245 252 263 268 
273 279 282 287 
R 3 003687 336 "213 218 239 
RCS7Z 3 00361C 325 56 58 63 63 136 192 7 : 7 Fae 
RCS ZCHEK @ 003170 i211 £115 
RCS ZM AX 6 00319A 136 122 
__RCSZ0 OG OI OO a a a cna Uae eae 
ROR 1 EXTRN 367 8 25 3& 251 
SAMEN 6 0032F8 230 222 224 
TESTDIGK & 003088 76 72 a 7 7 
TESTDIGR & 003046 50 a6 
WORK 16 00362B 330 200 201 202 203 ‘208% 208 205 208 209 210 22% #238 +215 216 217 218 
o Pep een eens 219 220 237. : 





a a a oe ee ge Wags Sate a oy Perera ve PLS GS Se See! 
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LOC LEN ODEFN LITERAL: REFERENCES 





























368A 5 377 =CL5* * 80 
367A 2 369 =YICARD) &3 
) 367C 2. 370 =H*°1" 53 79 _ 7 = — _ 
3STE 2 371 =YI{CARD+5}) 54 
368F 12 378 =CLI2°*KEY LENGTH =* 67 
) 3680 2. 372. =Y{CARD*+6) 69 
3682 2 373 =Y(CARD+9) 80 
3698 16 379 =CL16*NO KEY* 91 
) 3684 2. 378 =YUDEVTABLE? 96 _ Bs chat coteana eats Pea! ee eee ee 
3686 2 375 =H*r? 399 
3688 2 376 <YtDEVTEND) 100 
) 36AB 19 380 =CLIS*INVALID DEVICE TYPE* 102 
36BE 3 381 =P*99999° 114 
Z6C1 19 382 <=CLES*INVALID RECORD SIZE* 123 
) 36D% 28 383 =CLZ8*°RECORD WILL NOT FIT GN TRACK*® 138 felons ae eg = 
36FO 18 384 <=CLIB*INVALID KEY LENGTH® 153 
3702 2 385 =Pp*255°* 166 oo 
) 3704 23 386) ~=CL23°KEY LENGTH IS TOO LARGE*® 3268 ; 
3718" 1 387 =P* 1° 190 212 215 ‘241 
371¢ 3 388 =P*5000° 203 
TOTAL EXECUTION TIME 3 MINUYES 1 SECOND 
) ee ee a gee Sane mee Cer GIG ys ee cae) Spree pb ae eee SPREE Sag EE Bos oo Re ea ET 
) _ Be ips tas oon Lee cee ates Done 
) 
) a ae Sees ee ee ei Meas 7 ee ae 
) 
) 














sci gata ud sual ssa teases asa lg a na a a 








DISC-tiTNKER PASS 1 PROGRAM DISCBKSZ DATE 76/01/27 PAGE 1 7 








CTL NeWeOeSCRATCHS Red sSCRATCHLs SeOeSCRATCH2 | 


ee eer ere ee eee 
3000 INCLWDE DISCBKSZ ‘ 
gS Peer A gO si As ALTE SREGUA TOE SD REL OCL TS 2 dec Sb 
3720 INCL ® ROR aa. 
3866 ' INCL A°PRTR'. - 
















































































i ~ - a aE eee oe 
DISC-HINKER” PASS 2 PROGRAM DISCBKSZ DATE 76/01/27 PAGE 20 _ 
3000 ‘PREM DISCBKSZexX*3000" 
3000 | coe eo AN CLUDE DESCBKSZ 
3000 A @001 © 3800 DISCBKSZ O71F 
3354 # 3354 EOF 
33A6 _¥# 33AG PROV ee ee ee = Sees, Se 
3000 J DISCBKSZ 
3866 K- 0003 PRTR 
3720 «K O002 — ROR” 
=--3000 : 
3720 oe LIBE REOCATBLeO»eRELOCLIB : : 
3720 TNCL A RDR 
3720 A 0001 0000: DTFROR 0146 
3720 H 0000 ROR 
3720 J DTFROR 
3354 K 0ce02 EOF 
3000 Y oi Ae = ta PS ee ee re fae 
3866 NCL A’ PRTR 
3866 A 0001 OBOO DTFPRIR O3CS 
389B H  - O8S5 BPSA 
3898 H 0035 B?SH 
3866 H O800 PRIR ee ee el ee _ 
3866 J DTFPRTR 
33A6 K 68003 PROV 
3000. Y eee : 
DISC-LINKER ERRORS 00000 REVISION 5.0 DATE 76/01/27 




















UNIVAC 9300 LIBRARY SERVICES UPDATE OF CJSPROGS LU 00 SERIAL SYSGEN _ DATE 76/01/27 PAGE 1 


/ CTL NeUsOeCJEPROGS 
/ SEL /BISCBKSZeOeSCRATCH3 _ rae 
pg ENB OS OPT Ree ert ar rtiapes cogs 0 el et  Fe0rzT os Het ee SS PS  Qgogryrg oF 











THERE ARE &2 UNUSED DIRECTORY BLOCKS ; 
THERE ARE 467 UNUSED DATA BLOCKS END OF EXTENT = 199 19 


UNTVAC 9300 LIBRARY SERVICES UPDATE OF CUGPROGS LU 00 SERIAL SYSGEN NC ERRORS ~/CJG/7481216 | 


ee fis 





UNIVAC 9300 LIBRARY SERVICES S8TDPSTU TOTAL NO ERRORS /CJIG/7T81216 









































Hi els plan ies a aS ee ee at) ee. Teenie id 1 Se el orth es - ee RS ae ae Fe) er ens yp gee SS de eee, ieee Rh oe, Magee: wee Se mer he Se Rlpaeritanat ub eer. ae ye SS bron z 20% St sess 





DISC BLOCK. SIZE CALCULATION DEVICE = 84xX — RECORD SIZE = XXXXX KEY LENGTH = XXX PAGE 1 
INVALID DEVICE TYPE | 
INVALID RECORD SIZE 


INVALID KEY LENGTH 























L fem seth aa 
q 
Rios ae alee, Sas cet ee cts Sass i 











DISC BLOCK SIZE CALCULATION 





RECORD WILL’ NOT FIT ON TRACK 


KEY LENGTH IS TOO LARGE ~ 


DEVICE 








8814 


RECORD SIZE = 10000 KEY ‘LENGTH 


= 256 





PAGE 1 






































ie Beeld ee em me 


DISC BLOCK SIZE CALCULATION DEVICE = 8814 RECORD SIZE = 130 KEY LENGTH = 11 ®#®PAGE 1 








BLOCKING BLOCK BLOCKS RECORDS: BYTES 
mE ACTOR 0 USTZE | URER TRACK. 000 UPER TRACK. REMAINING 


1 130 25 25 T& 

2 ‘260 17 3a eee 118 
3 330 13 33 , 80 

4 520 10 80 &18 
5 
6 
7 
3 











650. 0 736 
780 42 6 32 
$10 42 793° 


8 
7 
6 
ri7o0 5... soir tN ka i ce i tn ce het na Bit ante 
4 
3 
2 
i 








12 31560 88. 323 
17 2210 51 100 
26 3380 52 173 
55 7150 55 88 


























. DEVICE = 8818 RECORD SIZE = 30 





KEY LENGTH = 15 PAGE 1 





: BLOCKING BLOCK BLOCKS RECORDS BYTES 



































1 30 38 38 63; 
2 60 33 BG ee BS pee wed ed! 
3 30 28 ‘84 , 232 
a E20 25 100 226 
- 5 1509 23 115 88 
6 180 21 | 126 74 
T 210 13 133 166 
8 ‘240 ——- 17 7 _ 136 - ie _ 402 hot yasl fete 
93 270 16 188 319 
10 300 15 150 288% 
12 330 148 184 326 
13 390 13 169 16 
14& 820 12 168 218 
16 480 12 i ee ee. 5, eee ee eee eer eae 
18 540 10 186 163 
21 630 3 189 52 
2a 720 co Bo BZ 123 
28 ‘840 wf 196 166° 
34 ID20 6 204% 84 
42 F260 5 210... 7: 7 ee a eee 
54 1620 a. 216. 58 
Ts 2220 3 222 58 
: AS 2 ce 3450 oe oa 230 22 
241 F230 1. 241._ 4 





















“QISC BLOCK SIZE CALCULATION 


BLOCKING 





DEVICE = 


BLOCK 
Se oh | |, Ae eeeeenen ©. 2 Seana 


BLOCKS 
PER TRACK | 


8415 


a ee 





RECORD SIZE = 120 _NO KEY - 


‘PAGE 1 





RECORDS 
PER TRACK 


BYTES. 
REMAINING 
































1 120 32 32 168 
2 240 21 a2 a ae - ee ate 
3 360 15 45, 256 
rN 480 12 & 8. 192 
7 5 600 10. 50 151 
: 6 720 8 48 610 
7 840 7 a9 586 
9 PosD ee 5a _ i | es ae 
11. 1320 5 55. 62 
14 1680 4 56 52 
: 19 2280 3 57 54 
29 3480 2 58  B2 
60 7200 1 60 94 























“PBISC BLOCK SIZE CALCULATION 


BLOCKING 


etd) See 





DEVICE = 881% RECORD SIZE = 80 





BLOCK . BLOCKS RECORDS 
ST7E PER TRACK. 0 PER TRACK 


80 a0 &0 


__ 160 27 54%: 


NO KEY”: 





BYTES. 


_. REMAINING 


38 
166 | 


PAGE 












































: 
2 : x t 
3 740 21 63 | 34 
& ‘320 17 68 14 
9. 200 weal asestlett Re eerie ttt Sacto TO 160 
6 R80 12 72 192 
T 560 10 70 569 
8 640 Pik: eee SESE DINE! <eERRD as) See eS te eee 
3 720 8 72 610 
11 880 7 T7. 300 
13 __70490_ 6 78 3248 
16 ‘3280 5 89 266 
21 7680 4. 84 52 
28 2240 3 so 178 ———™ Ae nee a oe, 
4g 3520 2 a8 0 
91 #280 1 gi 14. : 











